home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / forlib1.arc / TAD.FOR < prev    next >
Encoding:
Text File  |  1986-01-13  |  1.2 KB  |  38 lines
  1. $PAGE
  2. C**   **********************************************************
  3. C**   **********************************************************
  4. C**   TAD - DATE TIME SUBROUTINE
  5. C**         Interfaces with PCDATE and PCTIME
  6. C**
  7. C**   John R. Petrocelli   01/13/86
  8. C**   3890 Carman Rd.
  9. C**   Schenectady, N.Y.  12303
  10. C**   **********************************************************
  11. C**   **********************************************************
  12. $DEBUG
  13. $LARGE
  14.       SUBROUTINE TAD(MO1,MO2,DA1,DA2,YEAR,YR1,YR2,
  15.      *               HR1,HR2,MIN1,MIN2,SEC1,SEC2)
  16.       INTEGER*2 MONTH,DAY,YEAR,HOUR,MINUTE,SECS,MSECS
  17.       INTEGER*2 MO1,MO2,DA1,DA2,YR,YR1,YR2
  18.       INTEGER*2 HR1,HR2,MIN1,MIN2,SEC1,SEC2
  19.       CALL PCDATE(YEAR,MONTH,DAY)
  20.       CALL PCTIME(HOUR,MINUTE,SECS,MSECS)
  21.       YR=YEAR-1900
  22.       IF (YR .GE. 100) YR=YR-100
  23.       YR1=YR/10
  24.       YR2=YR-YR1*10
  25.       MO1=MONTH/10
  26.       MO2=MONTH-MO1*10
  27.       DA1=DAY/10
  28.       DA2=DAY-DA1*10
  29.       HR1=HOUR/10
  30.       HR2=HOUR-HR1*10
  31.       MIN1=MINUTE/10
  32.       MIN2=MINUTE-MIN1*10
  33.       SEC1=SECS/10
  34.       SEC2=SECS-SEC1*10
  35.       RETURN
  36.       END
  37. C**   -----------------------------------------------------
  38.